home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 25
/
AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso
/
Tools
/
SFX-Player
/
Mpeg
/
MrMPEG
/
Timer.rexx
< prev
Wrap
OS/2 REXX Batch file
|
2000-05-08
|
822b
|
25 lines
/* Timer.rexx */
options results; address MrMPEG
MUIA_NoNotify = 0x804237f9; MUIA_Slider_Level = 0x8042ae3a
MUIA_Slider_Max = 0x8042d78a
call setclip('MrMPEG_FLAG', 0)
getvar song_time; temp_song_time = result
getvar current_time; temp_current_time = result
init_time = left(temp_current_time, 2) * 60 + right(temp_current_time, 2)
finish = left(temp_song_time, 2) * 60 + right(temp_song_time, 2)
call time('R')
do until (counter >= finish) | getclip('MrMPEG_FLAG')
call delay(60)
getvar stopped
if result = 1 then leave
counter = init_time + trunc(time('E'))
temp_current_time = right(counter % 60, 2, 0)":"right(counter // 60, 2, 0)
setvar current_time temp_current_time
/* text ID CURNT LABEL "\033b\033r"temp_current_time */
slider ID PROG ATTRS MUIA_NoNotify 1 MUIA_Slider_Level counter
end
exit